home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 8 / CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso / pc / mac / __the_sc / mr._mo / card_3988.txt < prev    next >
Text File  |  1989-04-17  |  8KB  |  371 lines
  1. -- card: 3988 from stack: in._mo
  2. -- bmap block id: 3071
  3. -- flags: 0000
  4. -- background id: 2797
  5. -- name: 
  6.  
  7.  
  8. -- part 4 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=359 top=240 right=271 bottom=410
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 21
  16. -- text size: 24
  17. -- style flags: 256
  18. -- line height: 32
  19. -- part name: num of probs
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: 2004
  25. -- rect: left=411 top=306 right=329 bottom=451
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 32650 / 32650
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Start!
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global sel, skill, n
  37.   if hilite of button 6 is true then put 4 into sel
  38.   if hilite of button 5 is true then put 3 into sel
  39.   if hilite of button 4 is true then put 2 into sel
  40.   if hilite of button 3 is true then put 1 into sel
  41.  
  42.   if hilite of button 11 is true then put 5 into skill
  43.   if hilite of button 10 is true then put 4 into skill
  44.   if hilite of button 9 is true then put 3 into skill
  45.   if hilite of button 8 is true then put 2 into skill
  46.   if hilite of button 7 is true then put 1 into skill
  47.  
  48.   put card field 1 into n
  49.  
  50.   visual effect dissolve to black
  51.   visual effect dissolve to white
  52.   visual effect dissolve to black
  53.   visual effect dissolve to white
  54.  
  55.   go to next card
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 6 (button)
  61. -- low flags: 00
  62. -- high flags: 2004
  63. -- rect: left=453 top=306 right=329 bottom=496
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 1011 / 1011
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Go Home
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   go home
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 7 (button)
  80. -- low flags: 00
  81. -- high flags: 8006
  82. -- rect: left=359 top=43 right=63 bottom=467
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Addition +
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   get the number of the target
  94.   put it into y
  95.   repeat with x=3 to 6
  96.     set the hilite of button x to false
  97.   end repeat
  98.   set the hilite of button y to true
  99.  
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 8 (button)
  105. -- low flags: 00
  106. -- high flags: C006
  107. -- rect: left=359 top=63 right=83 bottom=485
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Subtraction -
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   get the number of the target
  119.   put it into y
  120.   repeat with x=3 to 6
  121.     set the hilite of button x to false
  122.   end repeat
  123.   set the hilite of button y to true
  124. end mouseUp
  125.  
  126.  
  127.  
  128. -- part 9 (button)
  129. -- low flags: 00
  130. -- high flags: 8006
  131. -- rect: left=359 top=83 right=103 bottom=483
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Multiplication x
  140. ----- HyperTalk script -----
  141. on mouseUp
  142.   get the number of the target
  143.   put it into y
  144.   repeat with x=3 to 6
  145.     set the hilite of button x to false
  146.   end repeat
  147.   set the hilite of button y to true
  148.  
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 10 (button)
  154. -- low flags: 00
  155. -- high flags: 8006
  156. -- rect: left=359 top=103 right=123 bottom=467
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Division ÷
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   get the number of the target
  168.   put it into y
  169.   repeat with x=3 to 6
  170.     set the hilite of button x to false
  171.   end repeat
  172.   set the hilite of button y to true
  173.  
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 11 (button)
  179. -- low flags: 00
  180. -- high flags: C006
  181. -- rect: left=359 top=131 right=151 bottom=445
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: Easy
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   get the number of the target
  193.   put it into y
  194.   repeat with x=7 to 11
  195.     set the hilite of button x to false
  196.   end repeat
  197.   set the hilite of button y to true
  198.  
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 12 (button)
  204. -- low flags: 00
  205. -- high flags: 8006
  206. -- rect: left=359 top=151 right=171 bottom=445
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: Fair
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   get the number of the target
  218.   put it into y
  219.   repeat with x=7 to 11
  220.     set the hilite of button x to false
  221.   end repeat
  222.   set the hilite of button y to true
  223.  
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 13 (button)
  229. -- low flags: 00
  230. -- high flags: 8006
  231. -- rect: left=359 top=171 right=191 bottom=445
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: Moderate
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   get the number of the target
  243.   put it into y
  244.   repeat with x=7 to 11
  245.     set the hilite of button x to false
  246.   end repeat
  247.   set the hilite of button y to true
  248.  
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 14 (button)
  254. -- low flags: 00
  255. -- high flags: 8006
  256. -- rect: left=359 top=191 right=211 bottom=445
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: Difficult
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   get the number of the target
  268.   put it into y
  269.   repeat with x=7 to 11
  270.     set the hilite of button x to false
  271.   end repeat
  272.   set the hilite of button y to true
  273.  
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 15 (button)
  279. -- low flags: 00
  280. -- high flags: 8006
  281. -- rect: left=359 top=211 right=231 bottom=445
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: Hard
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   get the number of the target
  293.   put it into y
  294.   repeat with x=7 to 11
  295.     set the hilite of button x to false
  296.   end repeat
  297.   set the hilite of button y to true
  298.  
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 16 (button)
  304. -- low flags: 00
  305. -- high flags: 2004
  306. -- rect: left=369 top=306 right=329 bottom=409
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 26635 / 26635
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: Help button
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   visual effect dissolve fast
  318.   go to card "help"
  319. end mouseUp
  320.  
  321.  
  322.  
  323. -- part 17 (button)
  324. -- low flags: 00
  325. -- high flags: 2000
  326. -- rect: left=147 top=210 right=222 bottom=161
  327. -- title width / last selected line: 0
  328. -- icon id / first selected line: 0 / 0
  329. -- text alignment: 1
  330. -- font id: 0
  331. -- text size: 12
  332. -- style flags: 0
  333. -- line height: 16
  334. -- part name: 
  335. ----- HyperTalk script -----
  336. on mouseUp
  337.  
  338.   -- blink eye
  339.  
  340.   put 50 into z
  341.  
  342.   put 167 into x1             -- right eye
  343.   put 215 into y1
  344.   put 190 into x2
  345.   put 220 into y2
  346.  
  347.   put the random of 2 into a
  348.   if a=2 then                 -- left eye
  349.     put x1-z into x1
  350.     put x2-z into x2
  351.   end if
  352.  
  353.   set the lockscreen to true
  354.   choose oval tool
  355.   set the pattern to 12
  356.   doMenu "Draw Filled"
  357.   set the lockscreen to false
  358.   drag from x1,y1 to x2,y2
  359.   set the lockscreen to true
  360.   doMenu "Undo"
  361.   doMenu "Draw Filled"
  362.   choose browse tool
  363.   set the lockscreen to false
  364.   play "Moo"
  365. end mouseUp
  366.  
  367.  
  368.  
  369. -- part contents for card part 4
  370. ----- text -----
  371. 5